Top 10k strings from Oligopoly (1984)(Sinclair User).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Covertapes / Sinclair ZX Spectrum - Covertapes - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
5 ;"Year ";t
5 ;"Firm ";k;
4 ;"______":
3 p(k,t)=p(k,t-1
3 ;"Money in hand":
3 ;" ":
2 z(k,t)=0.75
2 u(k,t)>960000
2 tn=tn+n(k,t-1
2 s333*q(k,t-1
2 r(k,t)>100000
2 q(k,t)>c(k)/20
2 p(k,t)>p(k,t-1
2 m(k,t)>100000
2 i(k,t)>i/n
2 i(k,t)=c(k)/20
2 e(k)<-3000
2 c(k)=c(k)+i(k,t)
2 ;"price of renewing equipment";
2 ;"Net profit":
2 ;"Gross profit":
2 ;"Depreciation":
2 ;"(Press any key to continue.)":
2 3333*a(t-1
2 (h(k,t)+.5
2 (c(k)*.075
2 &fff*a(t-1
1 z=z+z(k,t):
1 z(k,t)=p1*f3+f2/m2+f1/r3
1 z(k,t)=1.5
1 z(k,t)=0.25
1 x$);x$;"%"
1 v(k,t)=v(k,t-1
1 v(k,t)=(1.15
1 u(k,t)>500000
1 u(k,t)=e(k)+
1 tx=tr*(g(k,t)-o(k,t)-w(k,t))
1 tr=tr+0.05
1 to=to+s(k,t):
1 tn/n>15521
1 tn/n>12674
1 t(k)=tx/tr
1 t(k)=-t(k)
1 s333*b(k,t)
1 s(k,t)>s(k,t-1
1 s(k,t)>q(k,t)+k(k)
1 s(k,t)=s(k,t-1
1 s(k,t)=q*z(k,t)/z
1 s(k,t)=q(k,t)+k(k)
1 r2=r2+r(k,t-1
1 r1=r1+r(k,t)
1 r(k,t)>r(1
1 r(k,t)>8000
1 r(k,t)=r(k,t-1
1 r(k,t)=r(k,t)-1870
1 r(k,t)=100000
1 r(k,t)=1000
1 r(k,t)<r1/n
1 r(k,t)<1000
1 r(k,t)*n>r1
1 q=q+s(k,t-1
1 q(k,t)>1.5
1 q(k,t)=q(k,t)-
1 q(k,t)=1.5
1 pp=pp+p(k,t-1
1 p=p+p(k,t)
1 p(k,t)>1.55
1 p(k,t)>1.26
1 p(k,t)>1.15
1 p(k,t)=p(k,t)-dif*
1 p(k,t)=p(k,t)-
1 p(k,t)=p(k,t)+1
1 p(k,t)<.89
1 mm=mm+m(k,t-1
1 m=m+m(k,t)
1 m(k,t)>11000
1 m(k,t)>1.8
1 m(k,t)=m(k,t-1
1 m(k,t)=m(k,t)-1580
1 m(k,t)=m(k,t)*(1
1 m(k,t)=m(1
1 m(k,t)=3000
1 m(k,t)=100000
1 m(k,t)<2000
1 k(k)=q(k,t)-s(k,t)+k(k)
1 k(k)<c(k)/100
1 i=i+i(k,t):
1 i(k,t)>6000
1 i(k,t)>15000
1 i(k,t)>100000
1 i(k,t)=i(k,t)/f4*h19
1 i(k,t)=i(k,t)-2340
1 i(k,t)=i(k,t)*h19
1 i(k,t)=c(k)/40
1 i(k,t)=100000
1 i(k,t)<i/n
1 i(k,t)<1000
1 h(k,t)=h(k,t)+(q(k,t)-c(k)/20
1 h(k,t)=f(k,t)+q(k,t)*v(k,t):
1 h(k,t),f(k,t),v(k,t),q(k,t),i(k,t),r(k,t),m(k,t),s(k,t),p(k,t),g(k,t),b(k,t),t(k),n(k,t),e(k),k(k),c(k),u(k,t),d(k,t),o(k,t)
1 fff*b(k,t)
1 f4=i/a(t):
1 f(k,t)=f(k,t-1
1 e(k)<-2000
1 dif=p(k,t)-p(1
1 d(k,t)>100000
1 d(k,t)=100000
1 c(k)=c(k)+i(k,t):
1 c(k)=c(k)+
1 b(k,t)=b(k,t-1
1 b(k,t)=b(k,t)*1.2
1 b(k,t)=1.05
1 b(k,t)=1.02
1 b(k,t)=.985
1 b(k,t)=.97
1 b(k,t)=.95
1 an=an+s(k,t)/to*2
1 a(t)>a(t-1
1 a(t)=n*o(1
1 a(t)=a(t)+i(k,t-1
1 a(t)=a(t)*(1
1 a(t)<a(t-1
1 a(t);" this year."
1 VELOPMENT ":
1 OLIGOPOLY
1 ;"will rise by ";
1 ;"will fall by ";
1 ;"tries is ";
1 ;"overheads":
1 ;"again ."
1 ;"Year ";t:
1 ;"WE CONCEDE !":
1 ;"Unfortunately this firm is bankrupt and will not be deciding anything !":
1 ;"Trading Account":
1 ;"TAXES UP !"
1 ;"Stocks":
1 ;"Sales Units - Year ";t
1 ;"STRIKE":
1 ;"Reps & Renewals":
1 ;"Raw materials,wages":
1 ;"Profit & Loss":
1 ;"Production":
1 ;"Please collect your results."
1 ;"PUBLISHED BY ";
1 ;"OLIGOPOLY"
1 ;"No. of years = ";tt:
1 ;"Newsflash!":
1 ;"Net assets":
1 ;"Marketing":
1 ;"Machinery":
1 ;"Interest":
1 ;"Interest Rates ":
1 ;"If orders rise above this,the";
1 ;"If orders fall below this,the";
1 ;"IMPORTS !"
1 ;"How many firms are there in the industry ?":
1 ;"Firm ";k:
1 ;"Firm ";k
1 ;"FORECAST":
1 ;"FINAL RESULTS":
1 ;"Each year each firm must decide how to raise its profits and thevalue of its shares, taking ac- count of other firms' decisions."
1 ;"Each `20 spent on Repairs and Renewals will enable you to produce an extra unit of output next year. You may spend up to `100000. Last year you spent `";
1 ;"Do you want another game? (y/n)":
1 ;"Dividends paid":
1 ;"Demand expected to rise ";g;"%"
1 ;"Demand expected to fall ";-g;"%"
1 ;"Costs expected to rise ";v;"%"
1 ;"Costs expected to fall ";-v;"%"
1 ;"Contribution to":
1 ;"Cash Flow":
1 ;"Capacity of equipment indus-":
1 ;"COPYRIGHT WARNING"
1 ;"Balance Sheet":
1 ;"Asset Values - Year ";t
1 ;"Although you are the only playerthe Spectrum will run a rival firm (number 2).":
1 ;"Advice":
1 ;"Accounting Costs":
1 ;"ATTENTION ALL FIRMS !":
1 ;"(Year ";t-1
1 ;"(Total dividends paid: `";y(k);")"
1 ;"(Press any key to continue.)"
1 ;"(A 'negative' cost such as a tax refund is, of course, income !)"
1 ;"(2 to 25) "
1 ;"(1 to 6)"
1 ;"% . "
1 ;" Last year your price was ";p(k,t-1
1 ;" (obsolete)"
1 ;" (Year ";t-1
1 ;" (";q(k,t);")"
1 ;" Unfortunately this firm is bankrupt and will not be making any decisions ! ":
1 ;" How many years' would you like to play ?":
1 ;" High profits in the industry have attracted foreign comp- etition,which is expected to take ";
1 ;" Do you wish to use a printer ? (y/n)":
1 ;" Capital industries working overtime. "
1 ;" RESEARCH & DE
1 ;" 0 "
1 ;" ":
1 ;" ":
1 ;" MARKETING ":
1 ;" ":
1 ;" PRODUCTION ":
1 ;" NEW EQUIPMENT ":
1 ;" DIVIDENDS ":
1 ;" PRICE ":
1 ;" ":
1 ; "Your workers threaten to strike.Each firm must choose whether togive in to their demands, which would raise costs by about 20% or suffer a considerable loss ofoutput - perhaps a quarter. Firms may consult each other butmust decide in secret. Do you concede ? (y/n)"
1 ; " You may spend up to `100000 on marketing. Last year you spent `";m(k,t-1
1 ; "Research and development lowers costs and raises the appeal of the product. You may spend up to`100000. Last year you spent `";r(k,t-1
1 ; "By paying dividends to sharehol-ders, you make your company's shares more valuable. Last year you paid out ";d(k,t-1
1 ; "All decisions of firms should bein numbers. If letters are used,the request for a decision will begin again. If a firm spends orproduces too much or too little,it will be changed to the maxi- mum or minimum ."
1 ; " You may make up to ";
1 ; "Profits in the industry have caused concern and you have been referred to the Monopolies Commission. You may not raise your price next year."
1 ; "The Government announces that everyone is spending too much. It is therefore raising taxes by five percentage points to ";tr*100
1 ,u(k,t)*0.00033
1 ,n;n;" Firms.":
1 ,,,,"CASES COMPUTER SIMULATIONS LTD ":
1 +y(k)+d(k,t)):
1 +s(k,t));" @ `";p(k,t);")":
1 +pp)/(p(k,t-1
1 +p(k,t))+(.1
1 +i(k,t))):
1 +f(k,t)/15
1 +e(k)+n(k,t)+o(k,t)-d(k,t))
1 +e(k)*-r/100
1 +d(k,t))):
1 +(p(k,t)*n))
1 *(e(k)-5000
1 );". "
1 );". "
1 );"% of the market."
1 );"% of the market. "
1 );" with overtime. "
1 );" this year, or ";
1 )/(r(k,t-1
1 )/(r(k,t)+1
1 )/(r(k,t)*n+1
1 )/(m(k,t-1
1 )/(m(k,t)+0.1
1 )/(m(k,t)*n+.1
1 )*v(k,t)/3
1 (s(k,t)*p(k,t)-h(k,t)-r(k,t)-i(k,t)-m(k,t)+0.5
1 (s(k,t)*p(k,t)+.5
1 (r(k,t)/(1
1 (r(k,t)*(1
1 (q(k,t)*(0.7
1 (p/n);" then.":
1 (p(k,t)*100
1 (p(k,t)*(1
1 (m(k,t)+r(k,t)+
1 (i(k,t)/f4):
1 (h20*i(k,t)+.5
1 (g(k,t)-o(k,t)-w(k,t)-t(k)+0.5
1 (g(k,t)-n(k,t)+.5
1 (e(k)-n(k,t)-o(k,t)+d(k,t)+.5
1 (c(k)-o(k,t))
1 (c(k)*b(k,t)+0.5
1 ((s(k,t)*p(k,t)+.5
1 "will rigorously protect the":
1 "software is strictly prohibited."
1 "hiring, and lending of this":
1 "copyright, of OLIGOPOLY.":
1 "The Government announces that everyone is spending too much. It is therefore raising taxes by five percentage points to ";tr*100
1 "Profits in the industry have caused concern and you have been referred to the Monopolies Commission. You may not raise your price next year."
1 "Please note unauthorised copying":
1 "Please declare your decisions on":
1 " Your price may vary between 1 and 99."
1 " Prices averaged around ";
1 " High profits in the industry have attracted foreign comp- etition,which is expected to take ";
1 " Newsflash! Capital industries working overtime"
1 1983 N.Holgate."
1 "Your workers threaten to strike.Each firm must choose whether togive in to their demands, which would raise costs by about 20% or suffer a considerable loss ofoutput - perhaps a quarter. Firms may consult each other butmust decide in secret. Do you concede ? (y/n)"